int sumto(int n) 

{ 

int i; 

int sum = 0 ; 

for (i = 0; i < n; ++i) 

sum += i; 
return sum; 

} 
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int sumto(int n) 

{ 

int i ; 

int sum = 0 ; 

for (i = 0; i < n; ++i) 

{ sum += i; yield(); } 
return sum; 
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int sumto(int n) 

{ 

int i ; 

int sum = 0; 

int tripct = 10; 



for (i = 0; i < n; ++i) 
{ sum += i; 

if (0 == --tripct) 

{ tripct = 10; yieldO; } 

} 

return sum; 

} 
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typedef struct context { 
int n; int i; int sum; 
} context; 

typedef struct Continuation { 

int state; context ctxt; 
} Continuation; 

bool sumto_cps (Continuation* k) 

int state = k->state; 

context* ctxt = &k->ctxt; 

switch (state) { 

case 0: ctxt->sum = 0; ctxt->i = 0; 

k->state = 1; 

return false; 
case 1: { bool tst = (ctxt->i < ctxt->n 
if (tst) k->state = 2; 
else k->state = 3; } 

return false; 
case 2: ctxt->sum += ctxt->i; ++ctxt->i 

k->state = 1; 

return false; 
case 3: return true; 

} 

} 

int sumto(int n) { 
Continuation k; 
bool done = false; 
k.ctxt.n = n; k. state = 0; 
while ( !done) 

done = sumto_cps (&k) ; 
return k. ctxt. sum; 

} 
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} 

} 

break ; 
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WhatNextType ^ 

sumtoSLT (int caselab) { 2 

switch (caselab) { 3 

4 

case 2 : ^ 

arg2 = POP (void*); argl = POP (void*); s 

argO = POP (void*) ; 7 

kCaselab = POP (int); 3 

kFunc = POP (WhatNextType (*) (int )); 9 

case 3 : 
idlab2 : 

{ int n = (int ) (argO) ; 12 

int i = (int ) (argl) ; 13 

int sum = (int ) (arg2) ; 14 

if (i < n) { 15 

sum = sum + i; ++i; 15 

argO = (void *) (n) ; 17 

argl = (void *) (i) ; 18 

arg2 = (void *) (sum); 19 

if (--ticks > 0) goto idlab2 ; 20 

PUSH (kFunc); PUSH (kCaselab) ; 21 

PUSH(argO); 22 

PUSH (argl); PUSH(arg2); 23 

PUSH (sumtoSLT) ; PUSH(2); 24 

return STOP; 25 

} else { 26 

argO = (void *) (sum); 27 

if (--ticks > 0) goto idlab4 ; 28 

PUSH(kFunc); PUSH (kCaselab) ; 29 

PUSH(argO) ; 3q 

PUSH (sumtoSLT) ; PUSH(4); 3I 

return STOP; 32 
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Figure 7 



